<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留
checkadmin(4)
dim id
id=GetIntQueryString("id")
if id>0 then
conn.Execute("delete from [c_user] where id="&id)
response.redirect("showmsg.asp?from=user_list.asp&msg=RemoveSuccess")
else
response.redirect("showmsg.asp?from=user_list.asp&msg=ParameterError")
end if
%>